home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
nivb
/
sap.frm
< prev
next >
Wrap
Text File
|
1995-05-07
|
10KB
|
313 lines
VERSION 2.00
Begin Form SAPForm
Caption = "Service Advertising Protocol Services Test"
ClientHeight = 3600
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 7125
Height = 4005
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 3600
ScaleWidth = 7125
Top = 1140
Width = 7245
Begin Frame Frame1
Caption = "Nearest Services"
Height = 2895
Left = 120
TabIndex = 1
Top = 120
Width = 6855
Begin Label NACSHCLabel
Height = 255
Left = 5640
TabIndex = 28
Top = 2520
Width = 495
End
Begin Label NACSLabel
Height = 255
Left = 2280
TabIndex = 27
Top = 2520
Width = 2775
End
Begin Label Label11
Alignment = 1 'Right Justify
Caption = "NACS:"
Height = 255
Left = 1560
TabIndex = 26
Top = 2520
Width = 615
End
Begin Label AdverPrintServerHCLabel
Height = 255
Left = 5640
TabIndex = 25
Top = 2280
Width = 495
End
Begin Label RemoteBridgeHCLabel
Height = 255
Left = 5640
TabIndex = 24
Top = 2040
Width = 495
End
Begin Label ArchiveServerHCLabel
Height = 255
Left = 5640
TabIndex = 23
Top = 1800
Width = 495
End
Begin Label PrintServerHCLabel
Height = 255
Left = 5640
TabIndex = 22
Top = 1560
Width = 495
End
Begin Label JobServerHCLabel
Height = 255
Left = 5640
TabIndex = 21
Top = 1320
Width = 495
End
Begin Label FileServerHCLabel
Height = 255
Left = 5640
TabIndex = 20
Top = 1080
Width = 495
End
Begin Label PrintQueueHCLabel
Height = 255
Left = 5640
TabIndex = 19
Top = 840
Width = 495
End
Begin Label AdverPrintServerLabel
Height = 255
Left = 2280
TabIndex = 18
Top = 2280
Width = 2775
End
Begin Label RemoteBridgeLabel
Height = 255
Left = 2280
TabIndex = 17
Top = 2040
Width = 2775
End
Begin Label ArchiveServerLabel
Height = 255
Left = 2280
TabIndex = 16
Top = 1800
Width = 2775
End
Begin Label PrintServerLabel
Height = 255
Left = 2280
TabIndex = 15
Top = 1560
Width = 2775
End
Begin Label JobServerLabel
Height = 255
Left = 2280
TabIndex = 14
Top = 1320
Width = 2775
End
Begin Label FileServerLabel
Height = 255
Left = 2280
TabIndex = 13
Top = 1080
Width = 2775
End
Begin Label Label10
Caption = "Hop Count"
Height = 255
Left = 5400
TabIndex = 12
Top = 360
Width = 1095
End
Begin Label Label9
Caption = "Service Name"
Height = 255
Left = 2760
TabIndex = 11
Top = 360
Width = 1335
End
Begin Label Label1
Caption = "Service Type"
Height = 255
Left = 1080
TabIndex = 10
Top = 360
Width = 1215
End
Begin Label Label2
Alignment = 1 'Right Justify
Caption = "Print queue:"
Height = 255
Left = 960
TabIndex = 9
Top = 840
Width = 1215
End
Begin Label Label3
Alignment = 1 'Right Justify
Caption = "File server:"
Height = 255
Left = 1080
TabIndex = 8
Top = 1080
Width = 1095
End
Begin Label Label4
Alignment = 1 'Right Justify
Caption = "Job server:"
Height = 255
Left = 1200
TabIndex = 7
Top = 1320
Width = 975
End
Begin Label Label5
Alignment = 1 'Right Justify
Caption = "Print server:"
Height = 255
Left = 1080
TabIndex = 6
Top = 1560
Width = 1095
End
Begin Label Label6
Alignment = 1 'Right Justify
Caption = "Archive server:"
Height = 255
Left = 360
TabIndex = 5
Top = 1800
Width = 1815
End
Begin Label Label7
Alignment = 1 'Right Justify
Caption = "Remote bridge server:"
Height = 255
Left = 240
TabIndex = 4
Top = 2040
Width = 1935
End
Begin Label Label8
Alignment = 1 'Right Justify
Caption = "Advertising print server:"
Height = 255
Left = 120
TabIndex = 3
Top = 2280
Width = 2055
End
Begin Label PrintQueueLabel
Height = 255
Left = 2280
TabIndex = 2
Top = 840
Width = 2775
End
End
Begin CommandButton OKButton
Caption = "&OK"
Height = 375
Left = 3000
TabIndex = 0
Top = 3120
Width = 855
End
End
Sub Form_Load ()
Dim nearestService As SAP
ccode% = QueryServices(3, OT_PRINT_QUEUE, Len(nearestService), nearestService)
If (ccode% <> SUCCESSFUL) Then
PrintQueueLabel.Caption = "No response"
Else
PrintQueueLabel.Caption = nearestService.serverName
PrintQueueHCLabel.Caption = nearestService.interveningNetworks
End If
ccode% = QueryServices(3, OT_FILE_SERVER, Len(nearestService), nearestService)
If (ccode% <> SUCCESSFUL) Then
FileServerLabel.Caption = "No response"
Else
FileServerLabel.Capt